home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / 01r.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-09  |  2.2 KB  |  89 lines
  1. on startMovie
  2.   global gCursorReady, gKnobState, gMagCursor, gsearchOn, qtChan, gKnobSprite, gSendMovie, gCurrentLocation
  3.   puppetSprite(44, 1)
  4.   gCursorReady = 1
  5.   gMagCursor = "magCursor"
  6.   puppetSound(0)
  7.   sound stop 2
  8.   sound stop 2
  9.   gCurrentLocation = 1
  10.   gSendMovie = "01r"
  11.   qtChan = 35
  12.   sprite(qtChan).volume = 256
  13.   sprite(19).visible = 0
  14.   initGlobals()
  15.   gKnobSprite = 5
  16.   setUpKnob()
  17.   if gsearchOn = 1 then
  18.     sprite(6).visible = 1
  19.   else
  20.     sprite(6).visible = 0
  21.   end if
  22.   set the mouseDownScript to EMPTY
  23.   set the mouseUpScript to EMPTY
  24.   putMem()
  25. end
  26.  
  27. on idle
  28.   global gCursorReady
  29.   if gCursorReady = 1 then
  30.     cursor(200)
  31.     checkCursors()
  32.     set the locH of sprite 44 to the mouseH
  33.     set the locV of sprite 44 to the mouseV
  34.     updateStage()
  35.     if not (the type of sprite 31 = 0) then
  36.       if sprite(31).movieRate = 0 then
  37.         sprite(31).movieRate = 1
  38.       end if
  39.     end if
  40.   end if
  41. end
  42.  
  43. on checkCursors
  44.   global gMagCursor
  45.   set the castNum of sprite 44 to the number of member "curs1"
  46.   if rollOver(5) then
  47.     set the castNum of sprite 44 to the number of member "hotCursor"
  48.   end if
  49.   if rollOver(22) then
  50.     set the castNum of sprite 44 to the number of member "hotCursor"
  51.   end if
  52.   if rollOver(23) then
  53.     set the castNum of sprite 44 to the number of member "hotCursor"
  54.   end if
  55.   if rollOver(7) then
  56.     set the castNum of sprite 44 to the number of member "deMagCursor"
  57.   end if
  58.   repeat with i = 8 to 12
  59.     if rollOver(i) then
  60.       set the castNum of sprite 44 to the number of member "hotCursor"
  61.     end if
  62.   end repeat
  63.   repeat with i = 14 to 21
  64.     if rollOver(i) then
  65.       set the castNum of sprite 44 to the number of member "hotCursor"
  66.     end if
  67.   end repeat
  68.   repeat with i = 24 to 28
  69.     if rollOver(i) then
  70.       set the castNum of sprite 44 to the number of member "hotCursor"
  71.     end if
  72.   end repeat
  73.   if rollOver(36) then
  74.     set the castNum of sprite 44 to the number of member "hotCursor"
  75.   end if
  76.   if rollOver(37) then
  77.     set the castNum of sprite 44 to the number of member "nonCursor"
  78.   end if
  79.   repeat with i = 41 to 42
  80.     if rollOver(i) then
  81.       set the castNum of sprite 44 to the number of member "hotCursor"
  82.     end if
  83.   end repeat
  84. end
  85.  
  86. on stopMovie
  87.   puppetSprite(38, 0)
  88. end
  89.